home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAMRADIO / LOGBOOK.ZIP / DXCC5BGN.PRG < prev    next >
Text File  |  1985-10-29  |  1KB  |  25 lines
  1. *5BGEN GENERATES A NEW DXCC FILE
  2. IF FILE(dxcc)
  3.    * FILE EXISTS
  4. ELSE
  5.    USE dxcc
  6.    ? 'CREATING ',thisband,'METER FILE AND COPYING DATA'
  7.    COPY TO &dxcc                                                      
  8.    USE &dxcc                                                          
  9.                                                                    
  10.    DO WHILE .NOT. EOF                                                 
  11.       ? px,px1,country                                                
  12.       REPLACE dcall WITH blank                                        
  13.       REPLACE ddate WITH blank                                        
  14.       REPLACE dtime WITH blank                                        
  15.       REPLACE dband WITH blank                                        
  16.       REPLACE dmode WITH blank
  17.       REPLACE dstate WITH blank                                       
  18.       SKIP
  19.    ENDDO                                                              
  20.    ?                                                                  
  21.    ? 'NEW BLANK DXCC FILE CREATED'                                    
  22.    USE
  23. ENDIF
  24. RETURN
  25.